COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "VMAP"
C00006 ENDMK
C⊗;
BEGIN "VMAP"

INTEGER CHN,EOF,I,JJ;
DEFINE N=255;
DEFINE MASK='377, OBPS=8,IBPS=6;

INTEGER ARRAY TABL[0:N];

REAL GAMMA;

DEFINE MAPADR='771000;

PROCEDURE MAPSET(INTEGER ARRAY TABL);
   BEGIN
   INTEGER WD;
   WD←1 LSH 35 + 1 LSH 17 + MAPADR LSH -1;
   USETO(CHN,LOCATION(WD));
   USETI(CHN,LOCATION(WD));
   ARRYOUT(CHN,TABL[0],N+1);
   END;

JJ←0;
OPEN(CHN←GETCHAN,"ELF",'17,0,0,0,0,EOF);
WHILE TRUE DO
   BEGIN
   INTEGER L,mapp,val;
   outstr("mmph:"); mapp←cvo(inchwl); outstr("    hunh:"); val←cvo(inchwl);
   FOR I←0 STEP 1 UNTIL N DO 
    TABL[I]←IF I land mapp≠0 THEN val ELSE 0;
   MAPSET(TABL);
   END;



RELEASE(CHN);

END;